home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tv.d64 / a story.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  1KB  |  39 lines
  1. 1 POKE53272,23
  2. 2 PRINT"[212]HIS IS[160]A[160][205][193][196] [204][201][194], YOU[160]FILL[160]IN[160]THE[160]"
  3. 4 PRINT"MISSING PARTS[160]OF[160]SPEECH. [199]OOD LUCK!"
  4. 5 REM WRITTEN BY PAT TUBBS 1978
  5. 6 PRINT
  6. 10 REM MAD LIB - A STORY
  7. 20 PRINT " [212]YPE[160]AN[160]ADJECTIVE":INPUT A$
  8. 30 PRINT " [212]YPE THE[160]NAME[160]OF[160]A[160]GIRL":INPUT B$
  9. 40 PRINT " [212]YPE[160]AN[160]ADJECTIVE":INPUT C$
  10. 50 PRINT" [212]YPE THE[160]NAME[160]OF[160]A[160]MAN":INPUT D$
  11. 52 PRINT"[212]YPE[160]AN[160]ADVERB":INPUT E$
  12. 54 PRINT"[212]YPE[160]A[160]NOUN":INPUT F$
  13. 60 PRINT"[212]YPE A[160]NOUN": INPUT G$
  14. 70 PRINT"[212]YPE[160]AN[160]ADVERB":INPUT H$
  15. 80 PRINT" [212]YPE AN[160]EXCLAMATION":INPUT I$
  16. 90 PRINT" [212]YPE AN[160]ADJECTIVE":INPUT J$
  17. 100 PRINT" [212]YPE AN[160]ADVERB":INPUT K$
  18. 110 PRINT"[212]YPE AN[160]ADJECTIVE":INPUT L$
  19. 120 PRINT"[212]YPE[160]AN[160]ADJECTIVE":INPUT M$
  20. 130 PRINT"[212]YPE[160]A NOUN": INPUT N$
  21. 135 PRINT"[147]"
  22. 140 PRINT"       [193] [211][212][207][210][217]       "
  23. 150 PRINT" "
  24. 160 PRINT"  [212]HERE[160]WAS[160]A[160]SUDDEN "A$" KNOCK"
  25. 170 PRINT"ON THE[160]DOOR.  "B$" ,TURNED[160]TO[160]"
  26. 180 PRINT"HER "C$" COUSIN.  [209]UICK, "D$
  27. 190 PRINT" , SHE[160]CRIED " E$" , [200]IDE IN"
  28. 200 PRINT"THE "F$" CLOSET."
  29. 210 PRINT"[201]T[160]WAS[160]HER[160]BOY[160]FRIEND.  [201] FORGOT"
  30. 220 PRINT"MY " G$" , HE[160]SAID " H$"."I$
  31. 230 PRINT" HE[160]ADDED.  [215]HERE[160]DID[160]THIS "J$
  32. 240 PRINT"CIGAR[160]COME[160]FROM?  [215]HAT[160]CIGAR?"
  33. 250 PRINT"SHE[160]ASKED "K$"."
  34. 260 PRINT"[196]ON'T[160]GIVE[160]ME[160]ANY[160]OF[160]THAT"L$
  35. 270 PRINT"STUFF, HE[160]SHOUTED.  [206]EXT TIME"
  36. 280 PRINT"[201] CATCH[160]YOU[160]SMOKING[160]MY[160]CIGARS,"
  37. 290 PRINT"[201]'M[160]GOING[160]TO[160]WHALE[160]THE"M$" "N$
  38. 300 PRINT"OUT[160]OF[160]YOU!"
  39.